AUCKLAND COLOUR GENIE USERS GROUP 

P. 0, Box 27-3 87 . 

AUCKLAND. ^ 

I SSU E NO;. 8 SEPTEM BE R. 19^ 

Hi. 

Wc‘11, anotlier qreat niqht, with a crowd of 82 attending. Api>at'ently , 
several jieople Jiave missed tlic evening, tliinking tl«at our meetiTigs axe on 
the fourth Monday of evexY inontli. Please note that our meetings are every 
fourth Monday, not the fourtli Monday of every niontii. Please mark your 
calendars now, so that you don't miss future meetings. 

There will also be a ctiange to all following newsletters. These are very 
time consuming to produce every inontli, and very expensive to post. As the 
Post Office has not seen fit to answer eitlier of my two letters to them 
about bulk postage, your committee has decided that all futur'e newsletters 
will be prcf)ared during the four weeks after Uie meeting, and will tlien be 
distributed at the next meeting. This cuts down on postage (which was 
$25.50 last month for 84 newsletters), and also gives Cliris and I, or Ernie 
and Cliris and I, a little more Lime to prepare the newsletter. Those of 
you who are unable to attend tlic meeting will have your newsletter postctl 
to you in the usual way, and of course, our' 30 country members will also 
get theirs as usml. 

Olwen opened tlie meeting a little later than usual, at arourxJ 8 oclock. 
She gave a talk OTi 'tiasic for beginners’ or rather what sort of tidngs to 
try, what sort of programs to try converting etc. Then questions were 
asked that she did her best to answer. A brief synofisis follows: 

It IS probably Ixist to avoid buying books that are written to specific 
macliines, e,g. bbC. Spectrum, etc. A TRS-80 machine would be fine as long 
as there are not too many graphics commands in it. 

A 'Bad Subscript' error was explained : this means that you liavo 'used a 
subscript out of range'. In other words, you have called a 1(10) for 
example, when you have only dimensioned I as 1(9). To fix this, cliange 
your DIM statement, or put one in if there isn't one already. 

Is what you save on tapie always exactly the same as what is on the screen? 
Olwen explained that sometimes diu'ing editing you may have inadventently 
put in a liacksfiace , and this would proliably clause your line to be garbage 
when saved, and reloaded. 

Instead of pressing both RESET keys and the R key at tlie same time, try 
CALL 0000 or CALL COOO. This takes you liack to 'Ready'. 

If you have reset (pushed both reset buttons) during a machine code game, 
lust type SYSTEM then answer the firompi with / as usual, and you should Lie 
liack at the start of your program again. Until I learnt this, I always 
r edoadrxi the pru<irani! • 

A good range of books for Lite Colour Genie are Usbome's ser ies. They are 
available from Foodtown SLgx.'miarket, as well as most booksliops, and only 
cost $4.50 or less, each. (I bought one a week for about eight weeks with 
my grocery shopping - very IiandyJl) 

Another book that was mentioneti was 'Learning to Use the Colour Genie'. 
This was found on sale at the University Booksliop by Bert and Carol Harris. 
A 'book review' by Bert follows:- 


Learning to Use tlie Colour Genie 
Felix Ctiapman 
Published by Gower 
Price $21.50 (pro-devaluation) 

Since most Genie owners are familiar with Ian Sinclair's book 
'Mastering the Colour Genie', it is inevitable tliat tlie earlier 
book is used as a basis for comparison. 

Cliaproan's book is a paperback printed on a good qxiality paper 
(essential when one thinks of the number of times these books are 
used for reference). It is printed in a good sized clear type 
whicti IS easily readable. The program listings are in double 
sized typie and are excellent. A feature of this book are the 
illustrations of the screen content. Many of the prograjn listings 
are accoiiifjanied by a pliotograph of the screen layout. This is a 
bonus for beginners who may not be able to discern from the 
listing what they sliould be seeing on tlie screen. 

The first chapter supplies some background material on the Genie, 
the developnii:nt of micro-computers, a paragrapli or two on 
languages and descriptions and uses of the available periplierals. 
Nothing too heavy, the book is ainted at tlie beginner. 

Like Sinclair, Chapman starts right at square one with the tluree 
pin wall plug and goes into great detail on how to get started. I 
was tempted to skip this, but I found it was worth reading tlirough 
At the point where the programniing instruction starts I feel the 
content gets a bit lightweight compared to Sinclair. The demo 
listings are good but I felt the* explanations were not in 
sufficient detail and there was not the ^nogression from easy to 
difficult. There are occasions when one is referred to the 

programming manual for more detailed explanation. In fairness to 
Chatman I found some of his program explanations helped to clarify 
some of Sinclair's anti having two separate explanations of a 
particular programming feature can help to sort out .some of the 
confusion. 

Sununinq up. I feel that 'Learning to use the Colour Genie' is a 
worthwhile buy. It is a gotxl companion Ixiok to 'Mastering tlie 
Colour Cenie' but if I had to choose between the two it would have 
to lx,* Ian Sinclair winning on content. 

I have made some inquiries alxjut both books mentioned above, and have found 
that while 'Mastering the Colour Genie' is still available at the 

University Book Shop, there will be a 3 month delay for 'Learning to fise 
the Colour Genie'. And, if they don't get mote orders for it. there will 
only bo two copies of 'Learning to Use the Colour' Genie' coming in, one of 
which I have already got my name on! ! 

Another book - 'Z80 Machine Code for Humans' - Roger Lockerbie lias found 
tins book very bandy. 

Olwen also explained what a matrix is, and how it works. Lacking a 
blacklxjartl , she managed very well with chairs and people, giving us all a 
better umierstanding of how a matrix works. 

Ken also went over tlie new ROMS again, and all first six sets have been 
sold, or at least booked, at the meeting. There will be plenty mote 
available however, but do get in toucli with us if you are interested in 

purchasing a .set. However, one correction needs to be made. Ken said at 

the meeting tliat with tlie new roms, tlie screen was one line longer, and one 
line wider. However, the screen is only one line longer i.e. 40 x 25 
lines. 

By the way. I have Ixien talking to Robet't Wilson of tlie Christchurch Group, 
and he tells me that 20 memlicrs of their group have fxirchased the new roms. 


I also took alofiq a copy of Flying Bytes and put it up on tlie screen. We 
now liave several orders for Uiis. Please note everyone, tliat Flying Bytes 
is now available for old roins too, tlianks to Phil Lovegrove at Rakon, who 
took it home one night and altered mainly the PLOT anti PAINT conmiands. 

Disk drives were also discussed once again. David Chambers, in 
Cl a ist church, is willing to produce a dick drive for the very reasonable 

pt'ice of $400 to $500. BUT he has to have 100 orders (throughout New 

Zealard) before he will go aliead and do this. There was a lot of interest 
shown at the meeting about these, but the general opinion is that we would 
be pushing it to get 100 interested p£K)ple. These drives by the way, would 
have an extra 16K, and would run CP/M software. The price of $400-$500 is 
complete with all necessary modifications and software. 

David Chambers also has modems available. These range from $275.00 up to a 
commercial one, at $1000.00, He has a nwxlifiod 114 Rom that will be sold 
with any of his modems which will give you instant software for the modem. 
Those eirc availaltle ex stock however, not pec 100! Please get in touch 
with us if you are interested. (For those who don't know, David Chambers 
IS the pemon that has made these new corns available to us) 

The lack of technical manual was explained by Clii'is Bishop. Unfortunately, 
Rank Xerox did not reproduce tliese to a good standard, and he is liaving 
them done again. So, sorry about the delay folks, but you will definitely 
get one soon. I promise*! 

Now for something unusual. One of our meml)ers, a Mr David Walker of 
Feilding (prolific place. Feilding) needs a farming program tliat produces 
an output somethiCKj like: 


Date 

Cat 


Firm 


Details 

Amount 

31Jan 

CR 


CRN 


Groceries 

56.23 

28Feb 

TR 


TRC 


Brakes 

245.67 

IMar 

UT 


CRN 


Tyre 

123.56 

2 4 Mar 

UT 


TRC 


Petr ol 

40.00 

28Hai* 

SH 


CWS 


78 lambs 

1632.34 

1 2Apt 

T]< 


CAL 


Diesel 

245.45 

Ho needs 

to be able 

to 

input data similar l.o above. 

and to txi able to sort 

Lho data 

, according 

to 

category (GR, 

TR. UT etc;. 

He wants to lie cible to 

display 

it on screen 

and to 

be able to send selected categories to the 

printer. 

He also netxls to get 

total 

s, for instance 

of all the UT items, or 

dll TR items, etc. 

In 

other woLiis, 

he neels botli a search facility and a 

sort facility in thi 

s pf oqran*. 

Can 

anyone help him 

here? If anyone has a 

program 

like Lins, 

or 

can modify one. can they get in touch with David? 


Also, if {Kjssible, how about letting us all know the result (if any J David7 
This could be a great progt'ainming exercise for someone*! 

Rcmemljer, the next meeticKj night is on;- 

17th of September. 1984 - at 7.30 p.m. 

Please mark youc calendars now. and while you are at it, please mark aveiy 
fouc'th Monday from the 17th Geptember onwards until Cluristmas. 


Remember , tliat there will not be another newsletter until the night of tlie 
I5th of October, 1984, although tlie country members may get their 
newsletters a bit earlier. 


- Nola Huggins 


LIST OF FINANCIAL COLOUR GENIE GROUP MEMBERS AS AT 29/8/84 


ALVAREZ, Fred 

49 Aatley Ave, New Lynn 

873 120 


ANDRliWS.Rhya 

18 Bramley Drive .Pakuranga 


Student 

AUSTIN, Des 

Kar aka Nori-h Rd , R . D . 1 , Papakura 

Country 

AVIS. Stephen 

12 Ruru Crescent.Putarui'u 

7750 

Country 

BARKER. Anne family 

1 Carbery Place.Manuiewa 

267 4833 


BARR, Stir linq 

32 Kapuka Rd. Manger e Bridge 

668 551 


BERMAN, Robert 

16 Asbury Cres, Campbells Bay 

478 4022 

Student 

BISHOP, Chr 13 

6 Jenanne Place, Glenfield 

444 5301 


BURROWES, David 

86 Wood St .Palmerston North 


Country 

BURTON, Ron 

P 0 Box 208, Te Aroha 

625 Man. 

Country 

BYRNES. Ces 

31 Rosehill Drive, Papakura 

298 4107 

Country 

CAIRNS, Keith 

Box 3b .Ngongotaha. 


CounttY 

CAMERON , Seal i 

3A Quovadus Place. Red Beach 


Student 

CARIAN, Craig 

42a Comma Cieo, Mission Bay 
Postal Box 4326 .Auckland 

583 061 


COLSON, Keith 

21 Stapleford Cres, Browns Bay 


Student 

COWEN.J, 

Milson Line 5 R.D. Feilding 


Country 

(3?ANE, Darrell 

64 Ranald Ave.Glenbrook Beach 


CRUMP, S.J. 

No . 6 R . D . , Got e 


Country 

DIX, Keith 

21 Adel Place. Weymouth 

267 0434 


DONALDSON, David & family 

80 Wool field Rd , PapaLoetoe 

278 7593 


DRAPER, Mr C.F. 

C/- Lakeland TV a Stereo, 
box 892 , Taupo 

88 888 

Country 

DUNNINQIAM. Neville 

5 Kingswood Rd.Papatoetoe 

278 3105 


DYER, Ray 

5 Browne Str eet .Kawerau 

6199 Kaw, 

Country 

EDWARDS. D.G. 

lO Fairview Ave, Feilding 


Country 

ELLEY, family 

40 Mary Dreaver St, block. bay 

675 024 

EUSAK.Alex a Kevyn 

14 Awakino Place, Hanurewa 

266 7423 


FISHER, Peter 

64 Old Wairoa Rd, Papakura 

298 4654 


CEBB IE. George 

141 Fianshaw Rd.Te Atatu Sth 

83 46028 


GOLDIE. Willie a Andrew 

24 DoLKjlas Ave, Ht Albert 

867 533 


GORDON . Terry 

'39 Reeves Rd.Pakur'anga 

566 5b4 


GREEN . Got dori a family 

62 Ra;)kot Tce,Khandallah.Wqn4, 

Country 

GREEN. Mike 

49 Astley Ave. New Lynn 

873 120 

Student 

GROVE. Chr 13 G family 

4 Saleiii Place, Torbay 



GRUSNING.II.N. 

43 Beatty R'd. Pukekohe 

86 712 

Country 

GURNEY. P. A. 

10 Norfolk Rise, Waiuku 

59 682 

Count! y 

HAMILL. family 

2b Ashlyrine Ave .PapaLoetoe 

273 9585 

HARNESS. Justin 

18 Wynyard Rd.Mt Eden 

602 189 

Student 

HARRIS. Bert S. family 

15 Seakens Way. Gien Eden 

818 4660 


HILL.Gerrard a family 

86 Wallace Rd.Papatoetoe 

278 3446 


HOLES, Freda a fajiiily 

10 Rowan Terrace, Te Atatu Sth 

83 45244 


HOLT.BeiTiie 

P.O. Box 23-303 .PapaLoetoe 



HOYES. Peter 

l7 Luton Avenue .Pakuranga 



HUGGINS. Nola 

612 ML Albert Rd, Royal Oak 

655 718 


HYNDS.Ken 

13 Ngahue Cres, Whenuapai 

416 7404 


IRVINE. Robyn 

430 Massey Rd, Manger e East 

275 7007 


KANE. Mrs Deidre 

31 Momona Rd.Greenlane 

542 254 


KAY. Ross 

2/9 Lungteach Drive, Glen Eden 

318 4818 


LAMBOURN.A P a family 

32 Mead St, Avondale 

886 918 


LANGDON.Mark 

6 Trias Road. Glenfield 

444 4247 


LEWIS. Stuart 

39 Hi 1 Iciest Ave, Rotorua 


Country 

LIDDEL, family 

91 Taikata Rd.Te Atatu Nth 

834 7129 

LOCKERBIE. Claire a Roger 

63 Grampian Road, St Heliers 

580 270 


LYALL.K.G, 

78 Dimock St.Titahi Bay.Wgn 


Country 


* Conmittee niembei's 
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MacALPINE.Mr E. 

45 Hutu St,Te AwamuLu 



Country 

McCREEDY.Bert 

16 Walpole St.Ellerslie 

507 

308 


McFARLANE.Tomi 

2/14 Catkin Cres. Papa toe toe 

278 

2366 


McCILL, Keith 

15 Manapouri Place, Pakuranga 

565 

643 


MELLARS.Les 

564 beacli Road , Rothesay Bay 




METCALFE. E.K. 

Box 13031 .University of 





Waikato P.O. , iiamilton 



Country 

MILLAR, Robert 

17 Onewa Rd, Nor thcote 

CO 

504 

Student 

HILLS . Audi ew 

59 Blackbeech St.Akatarawa, 





Lower Hutt. 



Country 

MITQIELL, Geoff 

box 95 .Mangawhai .Northland. 

68 175 

Country 

MULLEN, Peter 

54 Pai'k Road,Glen£ieid 

444 

9155 


MUZYKA.Geotqe 

33 Vermont St. Punsonby 

789 

176 

Student 

NiaiOL, Bryce 

C/- FEPB, Private Bag.Pukekohe 

2996203 

Student 

0' CALLAHAN, Robert 

8a Koiiiaru St.Remuera 




PAKES, Robert 

3 Russell Crescent, Rotorua 



Country 

PETERS, D.R. 

6 Tane Lane. WhakaLane 



Country 

PHILLIPSEN.Mr H.E. 

Box 4 09, Have lock Nth.Hawkes Day 


Country 

PUKU.Joe 

33 Balluch Street , Mar ^urewa 




RICHMOND, bob 

181 Browns Day Rd, Drowns Day 

473 

4745 


ROBINSON. Ian 

4 Kingsley Street .Gisbor Tie 



Country 

* ROOTS. Ernie 

512 Glenfield Rd.Glenfield 

444 

9b69 


* RUSSELL, Andy 

2 Takitiinu bt, Whenuapai 

410 

6249 


SAUNDERS. A. M. 

96 Oriel Ave,Tawa, Wellington 



Country 

SAVlLLE.faiOily 

7A Southlynn Rd,Titirangi 

817 

6491 


SCOTHERN.D.J, 

64 Princess Road, Taux'anga 



Country 

SEATON, Mi cl lael 

56 Coiiiptori St.Northcote 

481 

042 

Student 

SEYD, Bruce t family 

127 Cannofigate St.Birkdale 

439 

746 


SIMPSON. Ron 

25 Renata tres.Te Atatu Nth 

S34 

b9o7 


SMITH.Bart y 

23 Eliot St, New Plymouth 



Country 

SPRATT.bave 

11 ball Place, ML Roskill 

675 

676 


STARKE. Mrs L.M, 

Urquhart Rd.Karaka.R.D.l . 





Fapakur a 



Countr y 

STEPHENS , Frances fcx fanuly 35 Raurenga Ave, Royal Oak 

b54 

120 


STRANAGHAN. family 

29 Haseler Cres.howick 

535 

7450 


SWASBROOK, family 

43 Pickwick Paiade.Howick 




TODD, A. J. 

4GA Hutton Street , Utahuhu 

276 

/'886 


TRUE. Murray G Anne 

4/503 uliphanL Rd.HasLings 



Country 

TUAVERA , Jef f ei y 

732 Sandringham Rd,Sand. 

693 

986 


VERMUELEN.Mi D.P. 

Strathmore Rd.Reporoa 



Country 

WALKER . bar I y Ir ene 

20 Ellei^mere Creb, Palm, Nor th 



Country 

WALKER, David 

Kiwitea.No 7 R.D.Feilding 



Country 

WAWMAN.Don 

5/53 Bellevue Rd,Mt Eden 

797 

440 XboSiworkj 

WESSELING.Ralph 

112 Ft View Drive .Papa toetoe 

535 

6134 


* WILLIAMS. Olwen 

3/26A West End Rd. Herne Bay 

761 

954 


WILTON- JONES, Jason 

11 Mountain Rd. Henderson 

814 

9956 

Student 


Total - 96 ineuiber.s 


* -Committee Members 


A GGEMBLY FOR BEGINMERS - PART 2 

(from a great height - coinehwere over tlie Pacific) 

This month I am giving you a short program which will shift the Colour 
Genie's keyboard into typewriter mode and inctirictions on how to turn this 
into a basic program. 

As this Series is a 'doing' exercise rather than one of trying to learn by 
reading, stoke up youi Genie, and load your monitoi (G-MON or ZEN; I have 
not yet used ZEN, and I am assuming that its command structure is similar 
to G-Mon's). Now type in M to enter the Modify mode, arid then type' in 4040 
which is the hex address of where the program will start. Type in the 
following hex numbers without any breaks; 

21 49 40 22 16 40 C3 66 00 CD E3 03 FE 41 D8 FE SB 38 06 FE 7B DO FE 61 D8 
EE 20 C9 

Press X to exit from the Modify mode and then to the critical test. Type 
in J4040J. Nothing happened? You should have the 'READY' message, and the 
BASIC prompt Press any alphabetic key. If it's not in lower case for 

the unshifted character, you have made a blue somewhere. If so, switch off 
and start again. You can display your entries by typing in D4040 before 
doing the ;iump, J4040J. If you have been successful, you can now play with 
the keyboard or some of your pet programs (no pun intended) and experience 
the benefits (and pitfallsi of a typewriter mode keyboard. This is the 
routine that I have used in the Word Processor. You will note that this 
program is more or less indestructible until you switch the machine off. 
More about that later, some of you may wish to skip the next section, but 
it has to be done if you want to learri Ivsseinbly. 

How it works 

Back to the reading caper. In the Assembly language, what you have entered 
13 this; 


Machine Code Operation Opierand 


Explanation 


1 . 

21 

49 

40 

LD 

IIL.4049H 

Load the HL register pair with tiie 
hex numbei 4049. 



1 b 

40 

LD 

v4016}|,) .HL 

Load the location 4016 in memory with 
Lhe number in the IIL legister. 

3. 

C3 

66 

00 

JP 

0066H 

Jump to location 0066 in ROM which i3 
the start of BASIC. 

4. 

C3 

E3 

03 

CALL 

03E3H 

Call the keyboard input routine in 
ROM at hex 03E3. 

5. 

FE 

41 


CP 

41H 

Compare the contents of the A 
register with hex 41 (the letter 'A'.) 

6 . 

D8 



RET 

C 

Return to ROM if its ASCII code is 
less than tliat of 'A'. 

7. 

FE 

SB 


CP 

SBH 

Compare the contents of the A 


register with hex SB (one higher than 
'Z'). 


8. 38 06* 

JR* 

C. SWITCH 

Jump* Lo SWITCH routine if its less 
UidLji tiex 5D. 

9 . FC 7B 

CP 

7DH 

Coinpiare the contents of the A 
register with hex 7B (one higher than 

^ rt f , 

L ) 

10. DO 

RET 

NC 

Return to ROM if it's greater than or 
equal to hex 7B. 

11. FE 61 

CP 

61H 

Compare the contents of the A 
register 

12. D3 

RET 

C 

Return to ROM if it's ASCII code is 
less than that of 'a' 

13. EE20 S 

WITCH XOR 

20H 

Switch bit 5 of contents of A 
register from 0 to 1 or vice versa 

14. C9 

RET 


Return Lo ROM unconditionally 

Assembly 

IS called a 

low-level 

language because it is only capable of 


'simple' operations invoiving the registers rather than the complex logic 
operations peinutted by a high-level language such as BASIC. The above 
program illustrates this. The first two lines tell the keyboard driver- 
r'outine to go to line four of the program first. The operation of loading 
location 401O1I with the number 4049H cannot be done in one go. This 
operation only needs to be earned out once however. The working part of 
the program starts at line four. When a key is pressed, the ASCII value of 
the symbol is put into the A register 'also called the Accumulator). Lines 
5-12 screen out characters which are not alphabetical and is the most 
economical viay of doing it. If the character- is alphabetic and we get to 
line 13. ttie XOR (exclusive OR.) function i.the heart of the progranuswitches 
lowercase to uppercase, and vice versa. Hex 2Ci=binary 0010 0000 and the 
only dif ftrcricc' between an uppercase letter and a lowercase one is bit 5 
being 0 or 1 (remember that the bit numbers start from bit 0;. XOR 20H 
reverses bit 5. Note that the CP (compare.) and XOR (exclusive ORifunctions 
only work on the Accumulator (A register). This is also true for some 
other Assembly functions and makes the Accumulator a very important 
register. 

* The JR instruction in line 3 is known as a Juiijp Re lativ e. The program 
IS instructed to jump forward u bytes (in this case.i past the tioxL 
location . 


Tut ning Machine Code into a BAS I C progra m 

This IS the sort of routine which cannot be done spieedily or economically 
in BASIC but is worth having in some BASIC programs. To do this, the 
machine code is loaded in a different way, and we have to tell the machine 
where to find the program (the address) and how to do it. The numbers are 
POKEd into memory in their decimal equivalent and so your first job is to 
convert all the hex numbers into decimal, thus: 

21H = 2 X lb + 1 = 33 

49H = 4 X 16 + 9 = 73 

4CiH = 4 X 16 + Cl = 64 

C9H = 4 X 16 + 9 = 201 

Remember that the hex numbers A,B,C,D,E and F are 10—15 in ordinary 
numbers. You can do tne rest of the numbers. Do it now* Switch off, then 


on and type in these program lines: 


10 FOR 1=0 TO 27;RCAD N:POKE£.H4040+I .N:NEXT 
20 DATA 33,73,64 201: REM 28 numbers in all 

To toll the Genio where to firid the program, we POKE the infortnation into 
what ia known as a pointer . The pointer for this application is at 16526 
and 16527. The low part of the address (LSDl in this case is 40H ot 64 
decimal. The LSB goes into 16526 and the MSB into 16527. Type in: 

30 POKE 16526, 64: POKE 16527,64 

To start the program we use the instruction X=USR(0) where the variable X 
and the value Cl are merely dummies. Type in: 

40 X=USR(0) 

RUN the program and the result should be the same as with the monitor 
method. 

If you want to use this routine at the beginning of one of your BASIC 
programs, you will have to make two small changes. Replace line 3 (JP0066) 
with C9 RET. Change the second byte, 49H, to 47H in line 1. The return to 
BASIC (JPC)066,) will end your BASIC program, whereas the RETum allows the 
program to carry on. 

Hidden Me mory 

You Miay have wondered why we can get away with using part of the RAM which 
IS reserved for the machine's operating systeio. The trick is that this RAM 
IS reserved for the disk operating system (.DOS) and most of us haven't got 
one. There are 63 bytes starting from 404CIH and another 85 bytes starting 
from 41b2H that are reserved for DOS. We can steal these for our own use 
so that uur programs do not clash. The bytes at 4040H are more stable than 
those at 4152H which are reset by a cold reset. 


- Allan Clarke 
(The Video Genie Man) 


I understand that there are a number of you who are Radio Ham Enthusiasts. 
Goodness knows if ttiat is wtiat you are called, fiowever . there are quite a 
few programs available for you in England, and I have written to the 
software supplier over tfiere. and asked for details. I will let you know 
further through this newsletter, once I hear from England. 

Meanwtiile, tiere are a few programs from Neil Grusning, wtio is ' 


one of you' ; 


10 

20 

30 


9 . 

^ A PROGRAM FROM H.N. GRUSNING, RADIO AMATEUR (I think that is what he 

.Lo — is called?) 

PR I NT “WIND SINGLE LAYER COIL" 

PRINT 

PRINT” 123WG" , ”23SWG“ , ” i4SWG” , "30SWG" , “ 16SWG’‘ , ”32SW6" , " ISSWG” , "34SWG'‘ , ‘•20SWG'' , 


40 

PRINTQ445 

, "ENTER WIRE SIZI 

50 

LETN=0 



60 

INPUTS^ 



70 

IF3$=” 10" 

THEN LETN=7,48 

30 

IFS$=" 12" 

THEN 

^ETN=9.09 

90 

I F3$= ”14" 

THEM 

l.ETN=1 1 . 78 

100 

IFS$=" 16 

” THEN LETN=14.8 

1 10 

IFS$=" 13 

"THEN 

LETN=i9. 7 

120 

IF3$="20 

"THEN 

LETN=26 

130 

I FSS= " 22 

"THEN 

LETM=33 

140 

IF3S= "24 

"THEN 

LETri = 41 . 5 

150 

TFS^=^"26 

"THEN 

LETN-50. 3 

160 

”20 

"THEN 

LETN-61 

l-’O 

IFS^ ="30 

"THEN 

LETN-72. 5 

: 80 

"32 

"THEN 

LETM=82. 6 

1 90 

IFST^”34 

"THEM 

LETN=96. 2 

200 

IF3$= " 36 

"THEN 

LETN=1 16.3 

210 

IFSi3=:"33 

"THEN 

LETN=144. 9 

220 

IFS$="40 

"THEN 

LETM=i78. 6 

230 

IFSS="42 

"THEN 

LETN=212 

240 

IFM-0 THEN GOTO 60 


260 
2^0 
350 
360 
370 
380 
390 
4 00 
410 
4 20 
430 
435 
440 
450 
460 
470 
430 
490 
500 
510 
520 
530 
540 


PRINT0525, "ENTER 

PRINT 

iriPUT R 

LET P=R*. 03937 
LETP=P/2 


s$; "SWG" 
COIL DIAMETER=MM” 


DIAMETER^" ; R "MM” 
ADJUST-SLUG7YES/NO" 


THEN PRINT(2642, ”1(-***THE 
THEN G0T0435 
p^ip SPACED 


"INPUT MICROHENRYS=” ; 


PRINTO605, "HAS COIL 
I1JPUTB$ 

IFB$=” YES" 

IFB$=”YE3" 

PRINT0605, 

REM 

PRINT@72 
INPUT! 

IFE$="N0” THEN LETH==J 
IFB$="VES" THEN LET H=J/1.5 
PRINT0723, " INDUCTANCE^” ; J; "UH. 

LET W= (H*5) / (PtB^N) 

LET E= ( . 36* (NC2*PC3) /H) +1 
LET G=SQR<E)+1 
LET W=W*G 

LET W=INT ( W*10+ . 5) / 10 

PRINT@340, "WIND” ; W; "TURNS OF ENAM. WIRE” 


COIL IS SLUG-TUNED” 


THIS IS A PROGRAM SENT TO US BY H.N . GRUSNING 


100 PRINT ”<30/?/? RADIO LOG /?/?00” 

120 REM 

130 CLEAR 5000 
140 DIMC$(500) 

150 M=1 

160 C$(l)=” « 

200 REM 
205 PRINT 

210 IMPUT"NEXT CALL SIGN’';A$ 

220 IF A$=” ALPHA “THENGOTO 500 
230 IFA$="LIST’' THEN GOTO 700 
240 GOSUB 800 
245 PRINT 

250 PRINT”CONFIRM” ; D$ 

251 INPUTB$ 

252 PRINT 

260 IF E$<>-YE3" THEN GOTO210 

270 REM 

280 FORI=lTON 

290 IFD$=C$(I) THEN GOTO 410 

300 NEXT I 

310 REM 

320 N=N+1 

325 C$(N)=D$ 

327 PRINT 

330 PRINT DS; " IS NEW CALLSIGN" 

332 PRINT 
335 PRINT 

340 PRINTN-1 ; "CALLS LOGGED" 

350 PRINT 
360 GOTO200 
400 REM 
405 PRINT 

410 PRINTDS; " ALREADY LOGGED" 

420 GOTO 340 

500 REM 

505 PRINT 

510 PR I NT "SORTING" 

520 FOR I=1T0N 
530 D$=CS ( I ) 

540 PRINT"*"; 

550 FORJ^ITON 

560 IF D$<=C$(J) THEN GOTO 580 
570 B$=C$(J) 

572 C$(J)=D$ 

574 D$=B$ 

590 NEXT J 
590 C$(I)=D$ 

600 NEXT I 
605 PRINT 

610 PR I NT "SORT COMPLETE" 

615 PRINT 

620 I NPUT " PR I NTOUT " ; A$ 

630 IF A^="NO" THEN GOTO 900 
700 PRINT 

702 PRINT"CALLSIGNS LOGGED" 

710 FOR I=1T0N 

720 IF 5*INT ( 1/5) < >I THEN GOTO 750 

730 INPUT"CONTINUE" ; A$ 

731 REM 

732 REM 

740 IFA$=”NO" THEN GOTO 900 


/'oQ) PRINT Cit(l) 

760 NEXT I 
770 PRINT 
772 PRINT 
780 GOTO 900 

800 REM SPACE STRIPPER . THIS REMOVES SPACES FROM 
802 REMCALLSIGN.E.G.ZL 2 AA BECOMES ZL2AA 
810 “ 

820 FORI=lTOLEN(A$) 

830 IFMIDSCAS, I, 1)="” GOTO 850 
840 DS=D^+MID$( A$, I ,1) 

850 NEXT I 
860 RETURN 
900 REM 

910 INPUT”DO YOU WANT TO QUIT. IF YOU QUIT YOU LOSE ALL DATA";A$ 
915 PRINT 

920 IF A$="YE3" THEN GOTO 940 
930 GOTO 200 

940 PRINT'’0. K. GOODBYE NOW . . ZZ2ZZ22z z z z z z z z z " 

945 PRINT 
950 END 


920 IF A$="YES" THEN GO I U 
930 GOTO 200 

940 PRINT’*0. K. GOODBYE NOW . . ZZZZZZZr z z z z z 2 2 z 
945 PRINT 
950 END 


ANOTHER PROGRAM FROM H,N, GRUSNING. 

5 CLEAR 100 

10 LET A$=”ZL1AC0***" 

12 DIMA$(25) 

20 LETD=LEN(A$) 

29 CLS 

30 PRINT"PLEASE INPUT THE CALLSIGN OF THE STATION BEING WORKED- IF YOU WISH TO SA 

VE THE INFORMATION ALREADY FILED THEN INPUT A SIGN” 

40 INPUTB$ 

43 CLS 

44 IFB$=">" THEN GOTO 700 
50 LET C=LEN(B$) 

60 LETN=1 

70 IFAS(N)=”*" THEN GOTO 100 
80 TFN=D THEN GOTO 500 
^0 LETN=N+1 
96 GOTO 70 

100 IF CODE ( A$ (N+ 1 ) ) < >C THEN GOTO 130 
110 LETH$=A$ ( (N-C ) TO N-1) 

120 IFH$=B$ TTHEN GOTO 160 
130 LETF=CODEA$ (N+2) 

140 LETN=2+F+N 
150 GOTO 70 

169 CLS 

170 PR I NT "THE INFORMATION ON”;B$;" IS” 

180 LETG$=A$(N+3 TO ( N+2+C0DEA$ ( N+2 ) ) ) ) 

190 PRINT 

200 PRINTGS 
210 PRINT 
220 PRINT 

230 PRINT"WOULD YOU LIKE TO UPDATE THIS I NFORMAT I ON? ( Y / N ) " 

235 LETU=0 

240 LET G$=INKKEYS 

250 LET U=U+i 

255 IFU=100 THEN PRINT"PLEASE PRESS ” Y ” OR ” N ” 

260 IFGS=”" THEN GOTO 240 
270 IFG$<>"f|" ANDG$<>"Y” THEN GOTO 235 
280 IFG$-"N" THEN GOTO 29 
285 CLS 

290 PRINT"PLEASE INPUT THE NEW INFORMATION ON " ; 

300 INPUTI* 


31» LETNU«C0DEA*<N+2) 

320 LET Q«LEN(I*) 

340 LET A*«A*< lTON+1) +CHR$(LEN 1$ ) + I$+A$ ( N+2+NU TO ) 350LETD=LEN < A*) 

360 G0T029 
500 REM 

510 PRINT-THERE IS NO INFORMATION ON " 

520 PRINTBS; "WOULD YOU LIKE TO CREATE A FILE ON HIM?(Y/N)" 

525 LETU=*0 

530 LETG$=INKEY$ 

540 LETU=U+1 

550 IF U=100 THEN PRINT "PLEASE PRESS " Y " " OR ““N""" 

555 LETG$=INKEY$ 

560 IFG$=»"" THEN GOTO 540 
570 IFG4J<>"Y" ANDG$<>"lll" THEN GOTO 525 
580 IF G$="N" THEN GOTO 29 
585 CLS 

590 PRINT"PLEASE TYPE IN THE INFORMATION YOU WOULD LIKE TO STORE ON"5B$ 
600 INPUT 1$ 

610 LETJ$=B$+"*" 

620 LETA$=A$+J$ 

625 LETD^LEN(A$) 

630 PRINT" INFORMATION SAVED" 

640 FORP=1TO50: NEXT 
650 GOTO 29 
670 SAVE "CALL" 

680 GOTO 29 

700 PRINT"PLEASE SET UP TAPE RECORDER" 

710 PR I NT "AND PRESS ANY KEY WHEN READY" 

720 FOR P=1TO400: NEXT 
740 CLS 

750 PRINT" ********^4****************-)f " 

760 PRINT 
770 PRINT 
780 PRINT 

790 PRINT" ***********-)f^-)f *****^************ " 

800 FORP=1TO250: NEXT 
810 G0T029 


N E H 


SOFTWARE 


I had hoped to bring you quite a few new titles this month, however, as the 
English companies are rather slow, they will have to wait until next time. 

Taues Available Now 


Plying Bytes $14.00 

This flight simulator has now been converted by Phil Lovegrove of Rakon, 
and will run ON EITHER NEW OR OLD ROMS . This is a superb program, and 
not at all easy. The more you get into it. the better the program becomes. 


Space Trek $14.00 

This IS another 'new rom' program which has been converted to old roms by 
David Donaldson, of Papatoetoe. David (and his kids!) really recommend 
Uiis program. It is an ax'cade-type game. The 'ad' says: 

Defeat the Klingon Invasion Fleet. Quadrant display. 8x8 galaxy 
pliasors. Photon torpedos. Long range scans and much more. Full 
instructions included. 


Draughts $10.00 

Quite a good program, in basic, based on the board game. At Uie end of 
your game, you can get the computer to reply all moves made, and you can 
even stop tins, and c!iange moves made and carry on playing. 


English to French $10.00 

Educational. Frencli words are put in in data statements, and can be added 
to, if required. Includes scoring on correct woixls. 


Bank Account $12.00 

For home accounts and cheque book reconciliations. Comes complete with 5 
pages instiuctions. In basic so you can go through the program and change 
It. 


Maths Magic $10.00 

For children up to about 10-11 years. 


Spell A Picture 1 $12.00 

Spell A Picture 2 

One on each side of the tape. Another educational offering for up to 10 
year olds. 


Toad Mania $12.00 

A very good machine code version of Frogger. I love the music. My kids, 
after hours of practice, can get all frogs across the highway, over the 
river', and into their little 'pigeonholes'. A very good game. 


The following program is from Don Edwards, of Feilding. Called ’OIL TYCOON’ 

. instructions are as follows: 

1. R&D Research and Development, decreases drilling costs 

2. Explore Necessary before drilling 

3. Drill To gain revenue 

Reprice Alter selling price of your oil 

5. Pass Turn passes without ongoing transactions occurring 

6. Redraw It is possible to scroll the various columns out of synchronization 

and this will redraw it all the way it should be. 


2 REM COPYRIGHT (C) 1973, INSTANT SOFTWARE, INC. (P) 

3 ’ADAPTED TO COLOUR GENIE BY DON EDWARDS 

10 POKE 16553, 255 : CLS : CLEAR200 : DEF INTB , D , G , I , M , N , T , U : D I MA ( 32 ) :F$=" : CO 

lour4:printtab (15) ; "oil tycoon" 

15 C0L0UR2: print: INPUT"NAME of company 1 (6 CHR) ” ;A$: print: INPUT"NAME OF COMPAN 
Y 2(6 CHR) " ; E$ 

20 random: G=RND ( 100) +125: T=RND (2) -1 ; F0RI=1T04: A ( I ) =2E6:NEXT: A ( 1 3 ) =500 : A ( 1 4 ) =500 : 

A(15)=1E5:A<16)=1E5 

90 GOSUBIOOO 

100 G0SUB2000: U=ABS (T-1 ) : C0L0UR2 : PRINT§520 , ; : ift = oprinta$;elseprintb$; 

130 if ( A (T+21 ) =0) + (RND (100) >5) G0T0200 

150 colours: PRINT" , YOU’VE SUFFERED A BLOWOUT ! f " : PR I NT " DAMAGE : $ " ; : Q=75*A ( T+2 1 
) ;a(t+3)=A(T+3}-q:a(T+21)=o:a(T+27)=o: colour4: printusingf$; q; 

180 C0L0UR7: print: PRINT"PRES3 RETURN TO CONTINUE."; 

1 85 N$=INKEY$: IFN^=" "THEN185EL3E700 
200 IF ( A (T+9) =0) + (RND (100) >8) G0T0230 

220 colours: PRINT" , YOU’VE SUFFERED A TANKER SPILL !!": PR INT " DAMAGE :";:Q=A(T+9) 
)(-RND (O) : A (T + 9) = A (T + 9) -G: R=Q : C0L0UR4 : PR I ntus i ngf$ ; q ; 

260 Q = 20*R: A (T + 3) =A ( T + 3) - Q : COLOURS : PR I NT " BARRELS, ", : C0L0UR4 : PRINTUSINGF$ ; Q ; : GO 
T0180 

280 colours: PRINT" , ENTER YOUR DESIRED TRANSACTION : " : I NPUT " ( 1 =RB<D , 2=EXPL0RE, 3 
=DRILL, 4=REPRICE, 5=PASS, 6=REDRAW) ";M 
235 IFM< 10RM>6THEN100 

290 PRINT§520, CHR^ (31 ) ; : PRINT§520, ; : 0NMG0T0300 , 400 , 500 , 600 , 700 , 90 

300 COLOURS: INPUT"ENTER AMOUNT (THOUSANDS) : $ " ; G : G=Q*1 E3 : IFQ< OORQ >=A ( T+3 ) THENM 

-n : G0T0290 

320 A(T+31)=A(T+31)+Q*(. 4+ RND (0) ) /2E6: IFA(T+31) >1A(T+31)=1 
340 A {T+3) =A (T+3) -Q: G0T0700 

400 A = 60-A (T + 31 ) *20-RND (40) *. B= 1 E3* ( 1 +RND ( 9 ) ) : C = 1 E4*RND ( 1 0 ) :D = 9 + RND(41) :E = 4E3*(C + 
1E3*D) /B:A(T+3)=A(T+3)-E 

410 COLOURS: PRINT''GE0L0GI3T’ S REPORT PR I NT " REPORT COST= $ " ; I NT ( E / 1 E3 ) ; " THOUSAN 

D," : print; "DRY HOLE PROBAB I L I T Y= " I NT ( A ) ; " % " 

420 PRINT"DEPTH=" ; B/ 1E3; "K FT, FLOW= " ; INT ( C / 1 E3 ) ; : PRI NT " K BARRELS, VOLUME=" 

;d;" X FLOW" 

430 PRINT§765, ; : PRINT"DO YOU WISH TO DR I LL " ; : C OLOUR 1 : I NPUT " ( Y / N ) '* ; N$ : I FLEFT$ ( N^ 

, 1 ) ="N"THENM = 5: G0T0290 

440 A(T+23)=B+2E3*(RND(3) -2) : A ( T+25 ) =C* ( . 5+RND ( 0 ) ) : A ( T + 27 ) =D*A ( T+25 ) * ( - 5+RND ( 0 ) ) 

: IFRND (100) < ATHENA {T+23) = 1E6 
450 A(T+21)=0:M=3:G0T0290 

500 colours: IFA (T+ 27) =OPRINT"YOU MUST FIRST EXPLORE !":GOTOiSO 

510 A(T+3)=A(T+3)-A(T+15):A(T+21)=A(T+21) +2E3: IFA ( T+21 ) >=A ( T+23) G0T0530 

520 colours: PRINT"S0RRY, no OIL YET":G0T0130 

530 C0L0UR8:PRINT"Y0U’ VE HIT OIL ! ! " : A ( T +5 ) =A ( T +5 ) + 1 : A ( T +7 ) =A ( T + 7 ) + A ( T +25 ) : A ( T+2 
1 ) =0: A (T+23) =0 

550 A (T+29) =A (T+29) +A (T+27) : A ( T+25 ) =0 : A ( T +27 ) =0 : GOTO 1 30 
600 colours: IFA (T+5) =0PRINT"Y0U HAVE NO OIL TO SELL !":G0T0180 
610 colours: IFA(U+ 5)=0PRINT"Y0U’RE A REGULATED MONOPOLY !":G0T0180 
620 C0L0UR5jrNPUT”WHAT IS YOUR NEW PRICE/100 BARRELS ";A(T + 13) 

700 PRINT§520, CHR$(31 ) :F0RI = 1T02: IFA (T + 29) < >OTHENA ( T + 7 ) =A ( T + 7 ) * ( 1 - A ( T + 7 ) /A (T + 29) 

) 

710 Q=A(T+13) /100:R=A(U+13) / 100 : S=A ( T+7 ) + A ( T+9 ) : A ( T+ 1 1 ) =A ( T+7 ) *. 95* ( RA3+ 1 ) / (QA3+ 
1) :IFA(T+11) >STHENA(T+11)=S 

740 A(T+9)=S-A(T+11) : A ( T+29 ) =A ( T+29 ) -A ( T+7 ) : R=A ( T + 1 1 ) *Q : S=A ( T+ 1 1 ) *4 / (A(T+31)+1): 
A (T+3) =A (T+3) +R-S: A (T+17) =R-S: IFS=060T0790 
730 A(T+19)=100*(R-S) /S 



790 A(T + 15)*1E5-A (T + 31)^I'5E4: IFA ( T+3 )< OA (T+3 ) =0 

800 A(T+l)«A(T+3) +A ( T+9 ) * ( A < T+ 13) +A(U+13) ) /200: IFA(T+3) >0G0T0830 t 

810 G0SUB2000: C0L0UR2: 1FT*=0PRINTS520 , A*; ELSEPRINT§520 , BS; 

820 colours: PRINT" GOES BANKRUPT !!!";: G0T0900 
830 G=G-l: IFO0G0T0860 

840 GOSUBIOOO: colours: PRINT§520, "GAME OVER -- " ; : C0L0UR2: IFA ( 1 ) >A ( 2) PRINTAS; EL 

SEPRINTB*; 

850 C0L0UR3: PRINT" WINS ! ! f " ; : G0T0900 
860 m=t:t=u:u=m:next:t=u:gotoioo 

900 colours: print: INPUT"WANT TO PLAY ANOTHER GAME " ; N$: IFLEFT$ ( N$ , 1 ) = " Y " THENRUNEL 
3EEND 

1000 cls:colour2:print§21 , a$;tab(32) ;b«:colour6:print"total net worth colour 
2:print"cash holdings — 

1010 C0L0UR6: PRINT"NUMBER OF WELLS : C0L0UR2: PRINT"OIL FLOW (BARRELS)" '-COLOUR 
6: print-reserves (BARRELS) ” 

1020 C0L0UR2:PRINT"0IL SALES (BARRELS) " : C0L0UR6 : PRI NT ” COST / 1 00 BARRELS COLOUR 

2:PRINT-DRILL C0ST/2000FT$ 

1030 C0L0UR6:PRINT"NET PROFIT ( LOSS) C0L0UR2: PRINT "RATE OF RETURN (%)":C0L0UR6 

:print"drill depth cft)" 

1040 COLOUR 1 : F0RI=1T040: PRINT" - " ; : next: RETURN 

2000 C0L0UR4: F0RI=1T021STEP2: PRINT§20*I +38, USINGF^; A ( I ) ; : PRINTTAB (29 ) ; USINGF$; A ( 
i + i) ; : next: RETURN 



10 DIMA(30) 

15 ’CONVERTED FOR COLOUR GENIE BY DON EDWARDS 
20 CLS: C0L0UR7: PRINT§363, "SUPER MASTERMIND" 

30 PRINT§.840, "DO YOU NEED I NSTRUCT 1 0N3 " ; : COLOUR 1 : PR I NT " (1=YES, 2 = N0 ) " ; : I NPUTC 
40 IF (C<>1)*<C<>2) THEN20 
50 IF C=1 GOSUB 810 
60 CLS: F=o: G=o: H=o 

70 C0L0UR2: INPUT"HIGHEST NUMBER (2 TO 9)";A 
75 IF (A<2)+<A>9) THEN70 

80 INPUT"NUMBER OF COLUMNS (2 TO 9)";B 

85 IF (B<2)+(B>9) THEN80 

90 REM * GENERATE RANDOM NUMBERS * 

100 CLS 

110 FOR C=1 TO B 
120 RANDOM 

130 colouri3:a(C-1)=rnd(a-1)+i:print§ 2+2*c, " tt" ; : next c 
140 COLOURl :PRINTTAB (24) ; "POSITN" ; : C0L0UR6: PRINT" VALUE" 

150 REM * INPUT A SET OF NUMBERS * 

160 J=0 

165 F0RE=1 TO 18 

170 PRINT%40*E," " ; : F ORC= 1 T04 : PR I NT " ",:NEXTC 

180 C0L0UR5:PRINT§40*E,E+J; 

190 FOR C=1 TO B 

200 PRINT§ 2+40*E+2*C A (9+C ) =A (C-1 ) 

210 NEXTC 

220 FOR C=1 TO B 

230 C0L0UR4: PRINTS 355," "; 

240 C0L0UR4: INPUT A(19+C) 

PPM PPTNT 43 SPACES 


240 oiiLuiiiM: lijrm nir m. > 

245 REM PRINT 43 SPACES 
250 PRINT§840,CHR$(30) 

255 PRINT§880, CHR$(30) 

260 IF A (19 +0=999 THEN340 

270 IF (A(19+C)<1) + (A(19+C> >A) THEN290 

280 G0T0300 

290 COLOURS: PRINT§ 846, -REDO, VALUE MUST BE FROM 1 TO"; A;" " ; ; G0TO240 

300 IF C=B THEN 315 

310 C0L0UR4:PRINT§ 1+40*E + 2*C, A ( 1 9 + C ) ; I COLOURS : PR INT " . " ; : NEXTC 
315 C0L0UR4:PRINT§ 1+40*E+2*C, A(19+C);' 

320 NEXTC 
330 G0T0440 

340 REM * PRINT HIDDEN NUMBERS * 

350 C0L0UR8:C=B: PRINT§ 5+40*E,"THE correct answer is: :PRINTCHR$(31 ) 

360 F0RC=1 TO B 

370 C0L0UR4:PRINT§ 42 + 40*X'E + 2*C, a (C-1 ) ; : NEXTC 

380 colours: print: PRINT TAB(4);"THAT IS THE END OF THIS SESSION." 

390 PRINT TAB ( 1) ; : PRINT’’DO YOU WANT TO PLAY AGAIN COLOURl : INPUT " (1=YES, 

";c 

400 IF (C=1)+(C=2) THEM430 

410 COLOURS: PRINT T AB ( 4 ) ; : I NPUT " PLEASE ENTER 1 FOR YES, 2 FOR NO";C 

420 G0T0400 

430 ON C GOTO 60,700 

440 REM * CHECK FOR CORRECT POSITION * 

450 PRINT TAB(21);: FOR C=1 TO B 
460 IFA ( 19 + C) < >A (9 + C) THEN430 

470 C0L0UR13: PRINT"*" ; : A(9+C)=0: A(19+C)=0 

480 NEXTC 

490 REM * CHECK FOR CORRECT SOLUTION * 

500 FORC=i TO B 

510 IF A(9+C)<>0 THEN720 

520 NEXTC 

530 REM * SCORING ROUTINE * 

540 F=F+E+ J : G=G+ 1 


2=N0) 


YOU 


550 H=F/G 

560 colours; PRINTCHR^ (31 ) : print: PRINT"CONGRATULATIONS MASTERMIND ! “ : PRINT*' 

ORKED IT OUT IN ONLY"; 

570 PRINTE+J;:iF E+J=l THEN590 
580 PRINT"TRIES, " : G0T0600 
5P0 PRINT"TRy." 

600 E=i:c=o 

610 print:print; "you have played" ;g;: if g=i then 630 
620 PRINT"GAMES THIS SESSION": G0T0640 
630 PRINT"GAME THIS SESSION" 

640 print; "YOUR AVERAGE SCORE I S " ; I NT ( 1 0*H ) / 1 0 I FH= i THEN660 
650 PRINT"TRIES PER GAME.": GOTO 670 
660 PRINT"TRY per GAME." 

670 print: print; "DO you want to try AGAIN" colouri :print" (i=yes, 2=N0)";:iNPt 

c 

680 colours: IF (C=1)+(C=2) THEN 690 

685 C0L0UR5: INPUT"PLEASE ANSWER WITH 1 OR 2 . " ; C 

687 G0T0680 

690 ON C GOTO 100,700 

700 C0L0UR2: CLS: PRINTS: 367, "’BYE FROM SUPER MASTERMIND." 

710 FOR C=1 TO 1500: NEXTC : CLS: END 
720 REM * CHECK FOR CORRECT VALUE * 

730 PRINT TAB (31 ) ; 

740 FOR C=1 TO B: FOR D=1 TO B 

750 IF A (19 + 0=0 THEM 790 

760 IF A(19+C) <>A(9+D) THEN780 

770 colour2:print"0"; :a(9+D)=o: d=b 

780 NEXT D 

790 NEXT C 

800 NEXTE 

805 J=J+18:G0T0165 

810 REM * INSTRUCTIONS * 


i20 CL'J 

830 C0L0UR4: PRINT-SUPER MASTERMIND ALLOWS YOU TO PI I YOUR WKS AOAINSI I HL LUWPU 
TOR. - 

840 PRINT:PRINT-THE computer selects a SERIES OF"; 

850 PRINT" NUMBERSAT RANDOM AND ’PRINTS’ THEM INVISIBLY AT"; 

860 PRINT"THE TOP OF THE SCREEN. YOUR TASK IS TO FIND"; 

870 PRINT" THE VALUE OF EACH NUMBER AND ITS CORRECT POSITION." 

880 PR I NT: PR I NT "TO DO THIS, YOU ENTER NUMBERS ONE AT A TIME AND"; 

890 PRINT" THE COMPUTER PLACES THEM IN A ROW ON THE SCREEN"; 

900 PRINT", UNDER THE INVISIBLE ONES."; 

910 PRINT" IT THEN COMPARES THE TWO SETS OF NUMBERS. FOR EACH"; 

920 PRINT" CORRECT NUMBER IN ITS CORRECT POSITION, THE"; 

930 PRINT" COMPUTER WILL PRINT AN *, FOR EACH OTHER CORRECT".; 

940 PRINT" NUMBER IN THE WRONG POSITION, THE" 

950 PRINT"COMPUTER WILL PRINT AN O. PRINT: PRINT" THE GAME ENDS WHEN YOU"; 

960 PRINT" EXACTLY" :PRINT"DUPLICATE THE INVISIBLE NUMBERS." 

970 COLOURl :PRINT:PRINT TAB( 6); "ENTER ANY NUMBER TO CONT I NUE " ; ; I NPUTC 
980 CLS: print: PRINT 

990 C0L0UR4: PRINT" YOU MAY CHOOSE AMY NUMBER OF COLUMNS, UP TO 10 AND"; 

1000 PRINT" THE MAXIMUM VALUE FOR THE NUMBERS, UP TO 9."; 

1010 PRINT" (O IS NOT A VALID NUMBER ).": PRINT " THE MORE"; 

1020 PRINT" COLUMNS YOU HAVE AMD THE HIGHER THE MAXIMUM VALUE,"; 

1030 PRINT" THE HARDER THE GAME.": PRINT 

1040 PRINT"AT ANY TIME, YOU MAY ENTER 999 , WHEN THE COMPUTER"; 

1050 PRINT" WILL DISPLAY THE INVISIBLE NUMBERS AND THE GAME"; 

1060 PRINT" WILL END. ": PRINT: PRINT TAB ( 14 ) ; " GOOD LUCK": PRINT 

1080 COLOURl : print: PRINT TAB( 6); "ENTER ANY NUMBER TO CONT INUE " ; : INPUTC 

1090 CLS: RETURN 


i8 m gfSgfPpALMER 

! 30 REM SET UP VARIABLES 

I 40 CHAR 4 

50 CLEAR 2000:SC»=STRING$(39, 191 ) 

60 TS=17408 :BS=18431 

70 RS=197: JS=242:M=TS+40*3 + 3:B=Ii;MS=91 
80 EN=500:LL=3 
90 GOSUB 5000 

100 GOTO102 

101 REM SET UP SCREEN 

102 CLS: COLOUR 7 

130 PRINT®120,CHR$ <182) ;CHR$ (185) 

140 FOR I=1T010 
150 COLOUR4 
160 PRINTSC$ 

170 NEXT 

180 FOR I =17060 

190 PS=TS + 5*40+RND( 40.t9 ) 

200 IF PEEK( PS) =RS OR PEEK < PS) =32 THENGOTO 190 

210 POKE PS,RS:CP=PS + 2.HACOO;POKE CP, 08 

220 NEXT I 

230 FOR 1=1 TO 10 

240 PS= TS+5*40+RND( 40*9 ) 

250 IF PEEK(PS)=RS OR PEEK (PS) =32 THEN GOTO240 
260 POKE PS , JS ; CP = PS+S.,HAC00 ; POKEGP , 1 3 
270 NEXT I 

300 GOTO302 

301 REM MOVE 

302 EN = EN-l:IF EN <: 1 THEN GOTO 4000 ELSE GOSUB 1000 

303 IF PEEK( 17531 ) <235 THEN PRINTG83, "DIG NOW'ELSE GOTO 310 

304 FOR T-ITOIOO 

305 NEXT T 

306 PRINTG83," 

307 FOR J=1T050 

308 NEXT J 

310 G=PEEK( -1934 ) 

320 IF G AND 64 THEN M=M+l:B=M-l: MS=62 
325 POKE X.MS 

330 IF G AND 32 THEN M = M - 1 : B = M+ 1 : TlS=60 
335 POKE X.MS 

340 IF G AND 16 THEN M = M + 40 I B = M-40 : rTS=47 
345 POKE X,47 

350 IF G AND 03 THEM M=M-40 : B=M+40 : M3=92 

352 IF G AND 128 THEN GOTO 4000 

355 POKE X,92 

360 IF M>BS THEM M=B 

370 IF M<TS THEN M=B 

330 NP =PEEK<M) 

390 IF NP=RS THENM=B:GOTO 300 

400 IF NP=J3 THENSC=SC+1 :EN=EN-1ELSE GOSUBIOOO 

4 10 IF SO 9 THEN GOTO 4000 

420 IF NP=32 THEN N=B:GOTO 460 

430 IF NP=191 THEN EN=EN-1 ELSE GOSUBIOOO 

440 IF PEEK(M-40 ) =RS THEN GOSUB 2000 

460 POKE B, 235 :POKEM,MS 

470 GOTO300 

1000 COLOUR 2 

1001 REM DISPLAY SCORE 
1005 COLOURS 

1010 PRINT®5 , "ENERGY=" 1 EN; " JEWELS= " 1 SC 1 " LIVES=" )LL 


1020 RETURN 

2000 GOTO 2002 

2001 REM DROP ROCK 

2002 IF PEEK (M)=MS THEN GOTO 3000 
2010 POKE M-40,32 

2020 POKEM,RS 
2030 M=B 
2040 RETURN 

3000 GOTO 3010 

3001 REM MAN DIES 
3010 POKE M,RS 
3020 POKEM-40,32 
3025 GOSUB 7000 

3030 LL = LL-l:IF LL^:i THEN GOT04000 
3040 M = TS + 40:t:3 + 3 : B = M : GOTO300 

4000 GOT04010 

4001 REM SCORE BOARD 
4010 CLS 

4020 PRINT^S'SO," GAME OVER ” 

4030 CS = SC4:5004. <LL+1) +EN:+: ( LL+ 1) T 5 

4 0 40 IF CS>0 THEN PRINT(? 210, “YOUR SCORE IS “ ; CS 
4050 PRINT0450, “PLAY AGAIN (Y/N)“ 

4060 A$= INKEYt 

4070 IF A$=“Y“ THEN 3C=0:GOTO60 
4080 IF A$=“N“ THEN END 
4090 GOT04060 

5000 GOT05010 

5001 REM START 
5010 CLS: C0L0UR4 

5020 PRINT “ DO YOU WANT INSTRUCTIONS (Y/N)“ 

5040 A$=INKEY$ 

5050 IF A$=“Y" THEN GOSUB 6000 
5060 IF A$=“N“ THEN GOTO 100 
5030 GOT05040 

6000 GOTO 6010 

6001 REM INSTRUCTIONS 
6010 CLS 

6015 GOLQUR2 

6020 PRINT “ DIGGER^S INSTRUCTIONS” 

6030 PRINT” RETREIVE THE JEWELS BUT AVOID” 

6040 PRINT” DIGGING UNDER THE ROCKS” 

6045 PRINT 

6050 PRINT” ROCKS - ” CHR$(197) 

6060 PRINT” JEWELS ^ ” GHRI(242) 

6070 PRINT: PRINT 
6030 PRINT “CONTROLS” 

6035 PRINT 


6090 

PR I NT 

“MOVE 

RIGHT == 

“ CHR$(255 

6095 

6 1 00 

PR I NT 
PR I N T 

“MOVE 

LEFT = 

“CHR$ ( 253 ) 

6 105 
6110 

PRINT 

PRINT 

“MOVE 

UP 

“CHR$ ( 232 ) 

6115 

6 120 

PR I NT 
PRINT 

“MOVE 

DOWN = 

“CHRJ ( 251 ) 


6130 PRINT 

6 135 PR I NT “PRESS SPACE BAR TO END AND RETAIN ENERGY” 
6137 PRINT 

6 140 PR I NT “PRESS S TO START ” 

6150 B$=INKEY$ 

6160 IF B$=”S" THEN GOTO 100 ELSE GOTO6150 

7000 GOTO 7010 

7005 REM SOUND SUB ROUTINE 

7010 SOUND 7,7 

7020 SOUND 6,0 

7030 SOUND 7,7 

7040 SOUND 8,16 

7050 SOUND 9,16 

7060 SOUND 10,16 

7070 SOUND 12,56 

7080 SOUND 13,0 

7090 RETURN 


lOQ REMiflRITHHETIC 

110 REM: COPYRIGHT 1379 BY PHIL FELDMON 
AND TOM RUGG 

120 REM MODIFIED FOR COLOUR GENIE 
140 CLEflR50:DIMH(4:), B(4), C(4), 0(4) 

150 ND=0 
160 NP=2a 
170 RANDOM 

200 G0SUB310:PRINT:PRINT’'^WHAT TYPE PROBLEM SHALL WE DO?'^^ 
210 PRINT'^^ 1 - ADDITION^’ 

220 PRINT^» 2 - SUBTRACTION’"^ 

230 PRINT’’^ 3 - MULTIPLICATION^’" 

240 PRINT^’"WHICH TYPE (1,2, OR 3)?'""; 

250 R$=INKEY$:T=VAL(R$;) :IFT.LT. IQRT.GT. 3 THEN 250 
260 PRINT CHR$ (24) T:G0SUB1300 

270 PRINT STRING$(40, :PRINT ""WHAT KIND SHALL WE DO 
230 PRINT"" 1 - EASY PROBLEMS"" 

230 PRINT"" 2 - MEDIUM PROBLEMS"" 

300 PRINT"" 3 - HARD PROBLEMS"" 

310 PRINT""WHAT KIND (1,2, OR 3)?""; 

320 R$=INKEY$:D=VAL(R$:) :IFD,LT. 1 OR D. GT. 3 THEN320 

330 PRINTCHR$(24);""-"";D 

350 QNDG0TQ360, 370, 400 

360 GQSUB340 : GQSUB320 : GQSUB330 : G0T0420 

370 GQSUB340:GQSUB330 

330 I FT=3THENGQSUB360 : GQSUB320 : G0T0420 

330 I FT. LT. . GT. 3THENG0SUB350 : GQSUB320 : G0T0420 

400 G0SUB350:G0SUB320:GQSUB330 

410 IFT=3THENGQSUB940:GQSUB330 

420 IFT.LT. .GT.2THEN450 

430 F0RJ=1TQ4: IFBC J) . GT. C( J) THENR=C ( J) :C(J)=B(J) :B(J)=R 
440 NEXT 

450 GQSUB1Q00:G0SUB31Q 
600 FQRJ=1T04:GGSUB1 100:NEXT 

6 1 0 FORK= 1 TQ4 : P=357+Kjt 1 0 : GQSUB300 : G ( K ) =N : NEXT 
620 PRINT3532, ""A N S W E R S""; 

630 FDRJ=1 TO 4 : P--G33+JX1G : 008061400 : NEXT 
640 F0RJ=1 T04:P=^712+J*10 

b50 IFA( J) . LT. . GT. G( JiTHENPRINTaP, ""WRQNG7""; :GQT0670 
GEO PRINTaP, ""RIGHTT""; :NR=NR +1 
b / 0 NEXT :FQRK=1 103: R$=INKEV’$:NEXT 
630 PRINTaS44, ""HIT ANY KEY TO CONTINUE""; 

630 R$=INKEY$: IFR$==""""THEN630 
700 FDRJ=1TQ10: R$=INKEY$:NEXT 
710 ND=ND+4: IFND. LT. NPTHENG0SUB31D : G0TQ350 
720 GQSUB1500 

730 PRINT: PRINT""WQNT MORE PROBLEMS (Y OR N) ?"" 

740 R$=INKEY$:IF R$="""" THEN 740 
750 IFR$=""Y""THENG0TQ140 
760 IFR$=""N"" THENCLS:END 
770 G0T074C 

300 N=0:M=1 : FOR 1 TOlO : R$==INKEY$ : NEXT 
310 PRINTaP, 

320 R$=INKEY$: IFR$=""""THEN320 

330 A=ASC(R$) : IFA=13 AND M =1 THEN PRINTaP, ""0""; : RETURN 

340 IFA=13 THEN PRINTSP, CHR$ (32) RETURN 

350 V=VAL(R$) : IFV=0 AND A. LT. . GT. 43 THEN 320 

360 PN=43+V: PRINTaP, CHR$(PN); :N=N+M*V:M=M*10 

370 IFM. GT. lOOOTHEN RETURN 

330 P=P-2:G0T0310 


ftRITHMETIC CONTINUED 

310 CLS:PRINTCHR$C23)iTABC6);^^fi R I T H M E T I C’^:RETURN 

920 FORK= 1 T04 : C ( K > =L+RND ( H-L+1 ) - 1 : NEX T : RETURN 

330 F0RK= 1 TQ4 : B (K ) =L+RND (H-L+1 ) - 1 : NEXT : RETURN 

940 H=3:L=0: RETURN 

350 H=33:L=0: RETURN 

960 H=25:L=l: RETURN 

1000 QNTGOTQIQIO, 1020, 1030 

1010 F0RJ=1T04:A(J)=B(J)+C(J;) :NEXT:RETURN 

1020 F0RJ=lTQ4:fl(J:)=C(j:i -B( J) :NEXT:RETURN 

1030 F0RJ=1T04:A( J:)=C(J)XB(: J) :NEXT:RETURN 

1100 IFCC J). LT. 10THENB$=CHR$ (32) 

1110 P=155+J9(10: PRINTSP, B$;C( J)i : P=134+J*10: PRINTOP, C$; 

1120 IFBC J). LT. 10THENB$=CHR$(32) 

1130 P=235+J*10: PRINTOP, B$;B ( J) ; 

1140 P=274+JX10:PRINTaP,STRING$(4, 

1150 RETURN 

T OO QNTG0TQ1310, 1320, 1330 
1310 C$=’^+^^: RETURN 
1320 0$=’"^-'^^: RETURN 
1330 C$=’^X^^: RETURN 

1400 B$=CHR$(;32) : IFA(j;). GT. 333THENPRINTaP, ft( J) ; : RETURN 

1410 IFfl(J). GT. 33THENPRINTaP, BJ^ACJ) ; :RETURN 

1420 IFflCJ). GT. 9THEN PRINTOP, B$;B$;fl(J); : RETURN 

1430 PRINTaP,B$^B$;B$;ft(J); :RETURN 

1500 G0SUB310: PRINT 

1510 PRINT’^YOU GOT^^;NR;^^RIGHT^^ 

1520 PRINT^^OUT QP-^^iNP; ^^PRQBLEMS^^ 

1530 P=NR/NP^10D 

1540 PRINT: PRINT^'^THflT’S^^; P; PERCENT CORRECT^ RETURN 


NOTE .LT. IS < 


-GT. IS > 


ID REM- SON ET LUMIERE 

20 REM A NOT VERY ORIGINAL DEMO FOR THE 
COLOUR GENIE 

30 REM USE A COLOUR TV 

40 REM AND TURN UP THE VOLUME 

50 RANDOM :NBGRD: FOR :FCLS 
60 X1=X2=Y1=Y2=C1=C2=10 

70 DIMC(150),H1 (150),H2<150), Vl(150), V2(:i50) 

SO AT=1 

SO NPLOTH 1 ( AT , V 1 ( AT ) TQH2 ( AT ) , V2 ( AT ) 

100 IFCl.LT. .GT. 0THEN120 

1 10 CL=RND(04) :C1=5*< 1+RND( 10) ) : IFCL. LT. 2THEN1 10 
120 IFC2.LT. .GT.0THEN14O 

130 Dl=RND(S:)-4:D2=RND(3)-4:El = RND(S)-4:E2=RND(3)-4:C2=5Xt:i+RND(.10 
140 P1=X1+D1 

150 IFPl. GT. =0ANDP1. LT. =153THEN170 
IBO P1=X1:D1=-D1 
170 X1=P1 
130 P2=X2+D2 

190 IFP2. GT. =0ANDP2. LT. =153THEN210 
200 P2=X2:D2--D2 
210 X2=P2 
220 Q1=Y1+E1 

230 IFQl. GT. =0ANDQ1. LT. =35THEN250 
240 Q1--=Y1 :E1=-E1 
250 Y1=Q1 
260 Q2=Y2+E2 

270 IFQ2. GT. -0AiMDQ2. LT. =35THEN230 
230 Q2=Y2:E2=-E2 
230 Y2=Q2 
300 FC0LOURCL 

310 S2=1 + RND(5) :S3= RND (12) : 34=32+ 1 : 35^=32+2 
320 PLAYCl, 32, S3, 3) 

330 PLAY <2, 34, S3, 3) 

340 PLQTXl, Y1T0X2, Y2 
350 PLAY(3, 35, S3, 3) 

330 C(AT)=CL:H1 ( AT) =X 1 : H2 ( AT) =X2 : VI ( AT ) =Y 1 : V2 ( AT) =Y2 
370 AT=AT+1 : IFAT. GT. 150THENAT=1 
330 C1=C1-1 :C2=C2-1 
330 G0TG30 


note: 


LT. IS<,.GT. IS > 



